home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 117 (1989-11-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 117 (1989-11-15)(Ossowski, Stefan)(DE)(PD).adf / PrintIt / PrintItDisplay.def < prev    next >
Text File  |  1989-08-20  |  4KB  |  74 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*                    This handles PrintIt!'s Display                      *)
  4. (*                                                                         *)
  5. (*-------------------------------------------------------------------------*)
  6.  
  7. DEFINITION MODULE PrintItDisplay;
  8.  
  9. (*-------------------------  IMPORTs:  ------------------------------------*)
  10.  
  11. (*------  Libraries:  ------*)
  12. FROM Intuition IMPORT WindowPtr, Gadget, ScreenPtr, StringInfo;
  13. FROM Graphics  IMPORT RastPortPtr;
  14.  
  15. (*---------------------------  Variables:  --------------------------------*)
  16.  
  17. TYPE
  18.   Gadgets = (hori1ID,hori2ID,hori3ID,hori4ID,hori5ID,hori6ID,hori7ID,hori8ID,
  19.              vert1ID,vert2ID,vert3ID,vert4ID,vert5ID,vert6ID,vert7ID,vert8ID,
  20.              PrintNormalID,PrintDoubleID,DpiH60ID,DpiH72ID,DpiH80ID,DpiH90ID,
  21.              DpiH120ID,DpiH144ID,DpiH240ID,DpiV72ID,DpiV144ID,DpiV216ID,
  22.              PositiveID,RepHorID,RepVerID,PrintItID,LoadPicID,ResetID);
  23.   TextType = ARRAY[0..79] OF CHAR;
  24.  
  25. VAR
  26.   Window: WindowPtr;
  27.   Gadgs: ARRAY Gadgets OF Gadget;
  28.   StrInfo: ARRAY[RepHorID..RepVerID] OF StringInfo;
  29.   Buffers: ARRAY[RepHorID..RepVerID] OF ARRAY[0..9] OF CHAR;
  30.   RP: RastPortPtr;
  31.   PixName: TextType;                    (* Pic's Name                 *)
  32.   StretchX: CARDINAL;                   (* horizontal Stretch-Value   *)
  33.   StretchY: CARDINAL;                   (* vertical Stretch-Value     *)
  34.   DoublePrint: BOOLEAN;                 (* Print it Twice ?           *)
  35.   Positive: BOOLEAN;                    (* Reverse or not ?           *)
  36.   xRes: Gadgets;                        (* horizontal DPI (DpiHxxID)  *)
  37.   yRes: Gadgets;                        (* vertical DPI (DpiVxxID)    *)
  38.   Screen: ScreenPtr;                    (* Screen containing Picture  *)
  39.   Shade: CARDINAL;                      (* For Color -> BW conversion *)
  40.  
  41. (*-------------------------------------------------------------------------*)
  42. (*                                                                         *)
  43. (*                          Open the Screen:                               *)
  44. (*                                                                         *)
  45. (*-------------------------------------------------------------------------*)
  46.  
  47. PROCEDURE OpenPrintIt();
  48.  
  49. (*-------------------------------------------------------------------------*)
  50. (*                                                                         *)
  51. (*                    Get Picture's Name                                   *)
  52. (*                                                                         *)
  53. (*-------------------------------------------------------------------------*)
  54.  
  55. PROCEDURE GetName();
  56.  
  57. (*-------------------------------------------------------------------------*)
  58. (*                                                                         *)
  59. (*                    Set Gadgets to their values:                         *)
  60. (*                                                                         *)
  61. (*-------------------------------------------------------------------------*)
  62.  
  63. PROCEDURE InitPrintIt();
  64.  
  65. (*-------------------------------------------------------------------------*)
  66. (*                                                                         *)
  67. (*               Ask to Convert Colors and do it after that:               *)
  68. (*                                                                         *)
  69. (*-------------------------------------------------------------------------*)
  70.  
  71. PROCEDURE Convert();
  72.  
  73. END PrintItDisplay.
  74.